home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / books.arc / REGISTER.PRG < prev    next >
Text File  |  1985-04-17  |  2KB  |  70 lines
  1. * register.prg
  2. * Add deposits, get balances from check register.
  3. store ' ' to rchoice
  4. do while rchoice <> "3"
  5.    erase
  6.    text
  7.                 Check Register Options
  8.                  
  9.                  1. Make a deposit
  10.                  2. Check Balance
  11.                  
  12.                  3. Return to main menu
  13.                  
  14.    endt
  15.    @ 8,15 say "Enter choice (1-3) " get rchoice 
  16.    read
  17.    
  18.    * perform requested task
  19.    do case
  20.    
  21.       Case rchoice = "1"
  22.       * make deposits
  23.       erase
  24.       use register
  25.       * display existing deposits.
  26.       ? " Existing deposits... "
  27.       ?
  28.       list off for deposit date,amount
  29.       ?
  30.       stor y to adding
  31.       do while adding
  32.       
  33.          ? " Add another deposit? (Y/N) "
  34.          wait to yn
  35.          
  36.          if !(yn) = "Y"
  37.             append blank
  38.             repl deposit with T
  39.             repl to:whom with "Deposit"
  40.             erase
  41.             @ 5,2 say "Enter Date ";
  42.             get date pict "99/99/99"
  43.             @ 7,2 say "Enter amount " get amount
  44.             @ 9,2 say "Source of check? " get reason
  45.             read
  46.          else
  47.             stor f to adding
  48.          endi (while adding)
  49.       endd (while adding)
  50.       
  51.       case rchoice = "2"
  52.          * Calculate and display balance.
  53.          erase
  54.          use register
  55.          ? "Calculating......"
  56.          sum amount for deposit to deps
  57.          sum amount for .not. deposit to chex
  58.          @ 10,10 say "Current balance is "+ str(deps-chex,9,2)
  59.          ?
  60.          ?
  61.          ? "Press any key to continue....."
  62.          wait
  63.       
  64.       endcase
  65.       
  66. enddo ( while rchoice <> 3 )
  67.  
  68. rele rchoice,adding,yn,deps,chex
  69. return
  70.